100 PRINTCHR$(14)"[147]":POKE53280,0:POKE53281,0
110 GOSUB60000:GOSUB52000
130 SYS57812"RANA.FONT",8,0:POKE780,0:POKE781,64:POKE782,54:SYS65493
135 POKE1327,50
140 SYS57812"RANA.ML",8,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
145 POKE1327,51
150 SYS57812"RANA.HI",8,0:POKE780,0:POKE781,0:POKE782,144:SYS65493
155 POKE1327,52
160 SYS57812"T.RANA",8,0:POKE780,0:POKE781,0:POKE782,128:SYS65493
165 POKE1327,53
170 SYS57812"RANA.INST",8,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
171 POKE1327,54
172 SYS57812"RANA.DSPHI",8,0:POKE780,0:POKE781,208:POKE782,151:SYS65493
180 POKE53272,(PEEK(53272)AND240)OR14
185 GOSUB50000
220 POKE198,0:WAIT198,1:GETA$
230 IFA$="[133]"THEN300
240 IFA$="[134]"THEN400
245 IFA$="[135]"THEN450
250 IFA$="[136]"THEN470
255 IFA$="Q"THEN500
260 GOTO220
300 SYS49152:GOTO185
400 POKE247,0:POKE248,90
410 SYS16384:GOTO185
450 POKE247,5:POKE248,60
460 SYS16384:GOTO185
470 POKE247,9:POKE248,45
480 SYS16384:GOTO185
500 GOTO40000
580 REM
600 PRINTTAB(15)"DISK ERROR"
610 PRINTTAB(8)"HIT ANY KEY TO TRY AGAIN."
620 POKE198,0:WAIT198,1:GOTO185
630 REM
10000 OPEN15,8,15,"S0:RANA BOOT":CLOSE15:SAVE"RANA BOOT",8:END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40030
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:END
40030 POKE646,PEEK(53281):PRINT"[147]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
50000 PRINT"[147]"TAB(5)"[129]#$%&#$%&#$%&#$%&#$%&#$%&#$%&#$"
50010 PRINTTAB(5)"$                            #"
51000 PRINTTAB(5)"# [156][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183][184][185][186][187][188][189][190][191]@AB[146] [129]$"
51005 PRINTTAB(5)"$                            #"
51010 PRINTTAB(5)"#       BY GUS VAKALIS       [129]$"
51015 PRINTTAB(5)"$                            #"
51016 PRINTTAB(5)"#$%&#$%&#$%&#$%&#$%&#$%&#$%&#$"
51020 PRINTTAB(13)"[158]COPYRIGHT 1992"
51030 PRINTTAB(8)"SOFTDISK PUBLISHING INC."
51040 PRINT"PLUG JOYSTICK INTO PORT TWO:"
51050 PRINTTAB(10)"F1 [154]FOR INSTRUCTIONS."
51060 PRINTTAB(10)"F3 [154]TO PLAY NOVICE GAME."
51065 PRINTTAB(10)"F5 [154]TO PLAY INTERMEDIATE GAME."
51070 PRINTTAB(10)"F7 [154]TO PLAY EXPERT GAME."
51075 PRINTTAB(10)"Q  [154]TO EXIT TO LOADSTAR."
51080 RETURN
51090 REM
51100 REM
52000 PRINT""TAB(10)"[204]OADING FILE 1 OF 6."
52010 RETURN
52020 REM
52030 REM
60000 Z$="                                       "
60010 POKE214,10:PRINT:PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
60020 FORI=0TO11:PRINTZ$:NEXT
60025 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[210][197][211][195][213][197] [193][212] [210][193][206][193]"
60040 Z$(1)="BY [199]US [214]AKALIS"
60050 Z$(2)="[214]1.0 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13)
60060 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK"
60070 Z$(4)="OF [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199]. [201]T IS NOT"
60080 Z$(5)="SHAREWARE OR IN THE PUBLIC DOMAIN."
60081 Z$(6)="[210]EPORT ILLEGAL DISTRIBUTION OF"
60082 Z$(7)="THIS PROGRAM BY CALLING"
60083 Z$(8)="1-800-831-2694 OR 1-318-221-8718."
60090 POKE214,12:PRINT:FORI=0TO8:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT
60099 RETURN